home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX 6.2 Development Libraries
/
SGI IRIX 6.2 Development Libraries.iso
/
dist
/
complib.idb
/
usr
/
share
/
catman
/
p_man
/
cat3
/
complib
/
CPPSL.z
/
CPPSL
Wrap
Text File
|
1996-03-14
|
2KB
|
67 lines
CCCCPPPPPPPPSSSSLLLL((((3333FFFF)))) CCCCPPPPPPPPSSSSLLLL((((3333FFFF))))
NNNNAAAAMMMMEEEE
CPPSL - CPPSL solves the complex Hermitian positive definite system A *
X = B using the factors computed by CPPCO or CPPFA.
SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
SUBROUTINE CPPSL(AP,N,B)
DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
On Entry
AAAAPPPP COMPLEX (N*(N+1)/2)
the output from CPPCO or CPPFA.
NNNN INTEGER
the order of the matrix A .
BBBB COMPLEX(N)
the right hand side vector. On Return
BBBB the solution vector X . Error Condition
AAAA division by zero will occur if the input factor contains a zero on the
diagonal. Technically this indicates singularity but it is usually
caused by improper subroutine arguments. It will not occur if the
subroutines are called correctly and INFO .EQ. 0 . To compute
INVERSE(A) * C where C is a matrix with P columns
CALL CPPCO(AP,N,RCOND,Z,INFO)
IF (RCOND is too small .OR. INFO .NE. 0) GO TO ...
DO 10 J = 1, P
CALL CPPSL(AP,N,C(1,J)) 10 CONTINUE LINPACK. This version dated
08/14/78 . Cleve Moler, University of New Mexico, Argonne National Lab.
Subroutines and Functions BLAS CAXPY,CDOTC
PPPPaaaaggggeeee 1111